home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AOL File Library: 2,801 to 2,900
/
aol-file-protocol-4400-2801-to-2900.zip
/
AOLDLs
/
Work Library - Marty
/
AppleWorks 4.0.1 --_ 4.0.2 up
/
Make402.525
/
Make4.02
/
CSEGDC.bas
< prev
next >
Wrap
BASIC Source File
|
1994-02-17
|
960b
|
19 lines
5 ONERR GOTO 2000
20 PRINT D$ = CHR$(4)
25 PRINT : PRINT "Copying new Seg.dc"
30 PRINT D$;"-copy"
40 S$ = OP$ +"th.ptch/seg.dc"
50 DE$ = PA$ +"/seg.dc"
56 PRINT D$;"delete /ram/seg.dc"
60 PRINT D$;"copy";S$;",/ram/seg.dc"
63 PRINT D$;"delete";DE$
65 PRINT D$;"copy /ram/seg.dc,";DE$
70 PRINT D$;"chain make402,@2600"
2000 ER = PEEK(222):EL = PEEK(218) +256 * PEEK(219)
2130 IF EL = 65 THEN PRINT : PRINT "Insert your AppleWorks startup disk and press Return ";: GET X$: PRINT : GOTO 65
2140 IF EL = 60 THEN PRINT : PRINT "Insert your Make402 disk and press Return ";: GET X$: PRINT : GOTO 60
2150 IF EL = 70 THEN PRINT : PRINT "Insert your Make402 disk and press Return ";: GET X$: PRINT : GOTO 70
2155 IF ER = 6 AND EL = 63 THEN PRINT : PRINT "Instert your AppleWorks disk and press return ";: GET X$: PRINT : GOTO 63
2160 IF EL = 63 THEN CALL -3288: GOTO 63
2170 IF EL = 56 THEN CALL -3288: GOTO 60
2190 POKE 216,0: RESUME